4D Doc Center : SMTP

4D Internet Commands v12.1

SMTP_Send


SMTP_Send ( smtp_ID {; paramSessao} ) -> Resultado

Parâmetro	Tipo	Descrição
smtp_ID	Inteiro longo	Referencia da mensagem
paramSessao	Inteiro longo	1 = Use SSL, 0 se omite = Não utilizar SSL
Resultado	Inteiro	Código de erro

Descrição

O comando SMTP_Send envia a mensagem referenciada por smtp_ID mas não exclui os dados da memória.

smtp_ID é a referencia inteiro longo de um email criado com o comando SMTP_New.

O parâmetro opcional paramSessao permite ativar o protocolo SSL para a conexão:

Se passar 1, o envio da mensagem é realizado em SSL (modo síncrono),
Se passar 0 ou omite este parâmetro, a conexão é realizada em modo padrão, não seguro.

Exemplo

Neste exemplo, é criada uma mensagem e se definem os elementos estáticos. Para cada registro da tabela [Pessoas], a mensagem é personalizada e é enviada.

 $error:=SMTP_New($smtp_id)

 $error:=SMTP_Host($smtp_id;"wkrp.com")

 $error:=SMTP_From($smtp_id;"herb_tarlick@wkrp.com")

 $error:=SMTP_ReplyTo($smtp_id;"bigguy@wkrp.com")

 $error:=SMTP_Subject($smtp_id;"¡Promoções em espaços publicitários!")

 FIRST RECORD([Personas])

 For($i;1;Records in selection([Pessoas]))

    If([Pessoas]Sales2Date>100000)

       $Body:=◊BigDiscText

    Else

       $Body:=◊SmlDiscText

    End if

    $Body:=Replace string($BoilerPlate;"<Salutation>";[Pessoas]Firstname)

    $error:=SMTP_To($smtp_id;[Pessoas]Email;1) `Substituir o cabeçalho "A" por um novo valor

    $error:=SMTP_Body($smtp_id;$Body)

    $error:=SMTP_Send($smtp_id)

    NEXT RECORD([Pessoas])

 End for

 $error:=SMTP_Clear($smtp_id)